Private Sub CommandButton2_Click()
ActiveSheet.Unprotect "124"
Range("Datos").Copy
Range("AA16").PasteSpecial xlPasteValues
Call MuestraCinta
Call imprimir
Call Limpiaarea
Range("A1").Select
Sheets("E").Protect
Call ocultaCinta

End Sub

Private Sub CommandButton3_Click()
ActiveSheet.Unprotect Password:="124"
Sheets("DIARIO").Activate
Sheets("DIARIO").Unprotect "123"
Sheets("E").Select
'rutina que graba la factura venta en hoja base
'se busca la primer fila libre en hoja Fact
filalibre = Sheets("DIARIO").Range("A1048576").End(xlUp).Row + 1
'se pasarn los datos desde la 1er fila de items
ActiveSheet.Range("C10").Select
fila = 10
While ActiveCell.Value <> ""
'copiamos datos fijos ajustando nro col
Sheets("DIARIO").Cells(filalibre, 4) = ActiveSheet.Range("D3")  'NRO EGRESO
Sheets("DIARIO").Cells(filalibre, 1) = ActiveSheet.Range("F3")  'FECHA
Sheets("DIARIO").Cells(filalibre, 9) = ActiveSheet.Range("C6")  'CONCEPTO
Sheets("DIARIO").Cells(filalibre, 2) = ActiveSheet.Range("H1")  'N DIARIO
Sheets("DIARIO").Cells(filalibre, 3) = ActiveSheet.Range("H1")  'N INGRESO
Sheets("DIARIO").Cells(filalibre, 5) = ActiveSheet.Range("H1")  'N ND
Sheets("DIARIO").Cells(filalibre, 6) = ActiveSheet.Range("H1")  'N NC
'otros datos del encabezado

'copiamos lista de items
Sheets("DIARIO").Cells(filalibre, 7) = ActiveCell.Offset(0, 0) 'CODIGO
Sheets("DIARIO").Cells(filalibre, 8) = ActiveCell.Offset(0, 1) 'DESCRIPCION
Sheets("DIARIO").Cells(filalibre, 10) = ActiveCell.Offset(0, 2) 'DESCRIPC
Sheets("DIARIO").Cells(filalibre, 11) = ActiveCell.Offset(0, 3) 'PRECIO
Sheets("DIARIO").Cells(filalibre, 12) = ActiveCell.Offset(0, 4) 'PRECIO


'incremento la variable fila para repetir el bucle
filalibre = filalibre + 1

'repito el bucle para los items siguientes
ActiveCell.Offset(1, 0).Select
Wend
'una vez concluda la copia debiera limpiarse el form de datos
'para el ingreso de nueva factura
Call ocultaCinta
MsgBox "Tus Datos se Guardaron Corectamente"
ActiveSheet.Protect Password:="124"
Sheets("DIARIO").Activate
Sheets("DIARIO").Protect "123"
ActiveWorkbook.Save
Sheets("E").Select
Call ocultaCinta
End Sub

Private Sub CommandButton4_Click()
Call limpiafE
End Sub

Private Sub CommandButton1_Click()
Call insertafila
End Sub

Private Sub CommandButton5_Click()
ActiveWorkbook.Save
End Sub

Private Sub Worksheet_Activate()
ActiveWindow.DisplayHeadings = False
End Sub